home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_014_19xx_-_de_Side_B.d64 / packer v2.3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  45 lines
  1. 0 x=40:rem if you 1-mhz-diskdrive hangedup x must be 90 (normal40)
  2. 2 ifn=0thenopen1,8,15,"m-w"+chr$(x)
  3. 4 ifn=0thenprint#1,"m-w"chr$(106)+chr$(0)+chr$(1)+chr$(200):close1
  4. 6 ifn=0thenn=1:load"c100 c540",8,1
  5. 8 sys49920:poke53272,20
  6. 10 poke53280,0:poke53281,0:print"[155][147][156]freeware 1994 by marek roth. main menu:[155]"
  7. 12 fori=0to28:poke54272+i,0:next
  8. 20 dima$(2,25)
  9. 30 reada$(0,a):reada$(1,a):reada$(2,a):a=a+1:ifa$(0,a-1)<>"quit"then30
  10. 40 fori=0toa-1:print"[155]";:ifi=peek(53245)-1thenprint"";:l=i
  11. 45 ifpeek(53247)>0then70
  12. 50 printspc(20-len(a$(0,i))/2);a$(0,i):next
  13. 60 print"[158]programs with _ can you run from basic!
  14. 70 [158]49795
  15. 80 [139][194](53247)[178]0[167][153]"":[137]40
  16. 100 [151] 53269,0:[158]49792:[139]a$(0,l)[178]"quit"[167][158]64738
  17. 110 [159]1,8,7,""[170]a$(1,l)[170]"":[161]#1,z$:mt[178]st:[160]1:[139]mt[178]0[167]180
  18. 120 [153]"load       insert "a$(2,l)" v2.3!
  19. 130 open1,8,15,"m-r"+chr$(28)+chr$(0)+chr$(1):get#1,z$:close1
  20. 140 ifz$=""then130
  21. 150 fori=0to2000:next
  22. 160 open1,8,15,"i":input#1,a:close1:ifa>0then150
  23. 170 goto110
  24. 180 restore:sys49856
  25. 200 poke646,peek(53280)
  26. 210 print"[147]l[207]"chr$(34);a$(1,l);chr$(34)",8
  27. 220 [153]"r(NULL)
  28. 230 poke198,2:poke631,13:poke632,13:end
  29. 1000 data"load construction kit_","de luxe kit v2*","construction kit"
  30. 1010 data"edit title where you select caves","titeleditor v2*,s","levelpacker"
  31. 1020 data"creat cavepacks","cavepacker v2*,s","levelpacker"
  32. 1030 data"write intro screen","introscreen*,s","levelpacker"
  33. 1040 data"make boulder dash game","lastpacker v2*,s","levelpacker"
  34. 1050 data"select language of construction kit_","select l. v2.3"
  35. 1052 data"construction kit"
  36. 1070 data"restart kit with old level_","old cave v2*","construction kit"
  37. 1080 data"pack files_","final comp*","construction kit"
  38. 1090 data"editor v2.3 anleitung_","anleitung*[151]","construction kit"
  39. 1100 data"editor v2.3 instruction_","instruction*[151]","construction kit"
  40. 1110 data"wie sich boulder dash entwickelt hat_","geschich*[151]","construction kit"
  41. 1120 data"minenfeld spielen_","minenfeld","construction kit"
  42. 1130 data"minenfeld anleitung_","anleitung minen*[154]","construction kit"
  43. 1140 data"welche titel gehen eine bestimmte zeit_","cd-t*[151]","construction kit"
  44. 9990 data"quit"," "," "
  45.